home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / JESSIE.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.1 KB  |  269 lines
  1. 0 REM  GIRL4 JEFF JESSEE
  2. 1 OPEN2,4,5
  3. 2 A$=CHR$(0)+CHR$(34)+CHR$(8)+CHR$(34)+CHR$(0)+CHR$(0)
  4. 3 PRINT#2,A$
  5. 4 A$(1)="'":A$(2)=CHR$(254):A$(3)="[221][221]":A$(4)="[220]":A$(5)="&"
  6. 5 A$(6)="#":A$(7)="[211]":A$(8)="[209]":A$(9)=" ":A$(0)="[180]"
  7. 6 FORX=0TO9:FORY=1TO5:A$(X)=A$(X)+A$(X):NEXTY,X:A$(3)="[179]"+A$(3)
  8. 7 OPEN1,4
  9. 8 READ A:IFA=0THENPRINT#1,"":GOTO8
  10. 9 IFA=999THENCLOSE1:END
  11. 10 B=INT(A/10):C=A-B*10:PRINT#1,LEFT$(A$(C),B);:GOTO8
  12. 11 DATA29,63,0
  13. 20 DATA19,66,65,0
  14. 30 DATA28,24,17,25,17,45,26,12,0
  15. 40 DATA28,24,17,25,27,45,26,12,0
  16. 50 DATA38,24,17,24,17,86,12,0
  17. 60 DATA19,38,15,17,34,18,86,12,0
  18. 70 DATA19,48,54,18,44,35,12,0
  19. 80 DATA19,48,54,16,44,35,0
  20. 90 DATA29,38,17,46,54,35,0
  21. 100 DATA29,38,27,36,54,35,0
  22. 110 DATA29,48,17,45,44,25,0
  23. 120 DATA29,48,27,35,44,25,0
  24. 130 DATA29,48,27,35,44,15,12,10,0
  25. 140 DATA29,48,27,84,22,10,0
  26. 150 DATA29,28,27,26,84,21,22,10,0
  27. 160 DATA29,28,27,26,43,44,21,32,10,0
  28. 170 DATA29,28,27,16,24,33,44,11,33,12,10,0
  29. 180 DATA29,28,27,16,24,43,34,53,12,10,0
  30. 190 DATA29,28,27,34,43,24,23,56,22,0
  31. 200 DATA29,27,26,34,43,34,28,23,15,33,15,22,0
  32. 210 DATA29,27,26,44,63,17,34,15,33,15,24,12,0
  33. 220 DATA29,27,26,34,73,55,33,15,14,13,15,22,0
  34. 230 DATA29,26,25,34,73,15,33,15,33,15,23,15,23,22,0
  35. 240 DATA29,16,23,44,73,15,23,26,23,15,33,15,23,15,22,0
  36. 250 DATA29,16,23,44,63,26,23,26,63,16,33,15,23,10,0
  37. 260 DATA29,16,23,24,13,24,53,27,93,17,33,16,23,12,10,0
  38. 270 DATA29,26,34,13,24,63,17,34,93,17,43,12,10,0
  39. 280 DATA29,36,14,23,24,63,27,25,43,34,13,17,43,22,10,0
  40. 290 DATA29,17,26,33,34,53,27,15,43,74,43,12,10,0
  41. 300 DATA29,17,26,113,17,35,33,64,43,22,10,0
  42. 310 DATA29,17,16,24,103,27,45,23,64,43,12,10,0
  43. 320 DATA29,18,17,24,113,27,35,43,54,43,10,0
  44. 330 DATA29,18,17,14,113,27,15,24,63,34,43,10,0
  45. 340 DATA29,18,17,14,113,18,17,15,24,63,24,43,12,10,0
  46. 350 DATA29,18,17,123,28,35,123,12,10,0
  47. 360 DATA29,18,17,123,28,35,53,24,13,22,12,22,10,0
  48. 370 DATA29,18,17,123,28,35,14,43,34,22,13,12,10,0
  49. 380 DATA29,18,17,123,28,35,14,43,44,22,10,0
  50. 390 DATA29,18,17,123,28,35,14,43,44,22,10,0
  51. 400 DATA29,18,17,123,28,35,14,53,34,22,10,0
  52. 410 DATA29,18,16,123,28,34,93,22,10,0
  53. 420 DATA29,18,16,123,28,24,93,42,10,0
  54. 430 DATA29,18,16,123,28,24,103,42,10,0
  55. 440 DATA29,18,15,123,28,24,123,22,10,0
  56. 450 DATA29,18,15,123,28,34,113,22,10,0
  57. 460 DATA29,18,15,133,28,34,93,32,10,0
  58. 470 DATA29,18,14,133,28,34,93,32,10,0
  59. 480 DATA29,18,14,133,28,34,83,32,11,10,0
  60. 490 DATA29,18,14,143,28,24,73,42,11,10,0
  61. 500 DATA29,18,14,143,28,24,63,42,21,10,0
  62. 510 DATA29,18,14,143,28,24,63,42,21,10,0
  63. 520 DATA29,18,14,143,28,24,53,52,21,10,0
  64. 530 DATA29,18,14,153,28,24,53,52,21,10,0
  65. 540 DATA29,18,14,153,28,24,53,52,21,10,0
  66. 550 DATA39,18,14,143,28,34,53,42,21,10,0
  67. 560 DATA39,18,14,143,28,34,53,52,21,10,0
  68. 570 DATA39,18,14,143,28,44,43,52,21,10,0
  69. 580 DATA39,18,14,143,28,54,33,52,21,10,0
  70. 590 DATA39,18,14,133,28,64,33,62,11,10,0
  71. 600 DATA39,18,14,133,28,24,25,24,33,62,21,10,0
  72. 610 DATA39,18,15,133,28,24,25,34,43,42,21,10,0
  73. 620 DATA39,28,123,28,15,24,35,24,43,42,21,10,0
  74. 630 DATA39,28,123,28,15,34,25,24,43,52,21,10,0
  75. 640 DATA39,28,53,14,63,28,15,34,25,24,43,52,21,10,0
  76. 650 DATA39,28,74,53,28,15,33,25,34,43,42,31,10,0
  77. 660 DATA39,28,64,53,28,15,43,14,25,24,43,42,31,10,0
  78. 670 DATA39,28,35,34,53,28,15,43,14,25,24,43,42,31,10,0
  79. 680 DATA39,28,35,24,63,28,15,43,14,25,24,53,42,21,10,0
  80. 690 DATA39,28,25,34,53,28,15,53,14,35,24,43,32,41,10,0
  81. 700 DATA39,28,15,34,53,28,15,63,14,35,24,43,32,41,10,0
  82. 710 DATA39,28,44,53,28,15,63,14,35,24,53,32,31,10,0
  83. 720 DATA39,28,25,74,28,15,63,14,35,24,53,32,31,10,0
  84. 730 DATA39,28,25,74,28,15,63,14,35,24,53,32,31,10,0
  85. 740 DATA39,28,15,24,53,28,15,14,63,14,35,24,53,32,41,10,0
  86. 750 DATA39,28,15,14,63,28,15,14,63,14,45,14,53,32,41,10,0
  87. 760 DATA39,28,14,73,28,15,14,63,14,45,14,53,42,31,10,0
  88. 770 DATA39,28,15,73,27,15,14,63,14,45,14,63,32,31,10,0
  89. 780 DATA39,28,25,14,53,27,15,14,63,14,45,14,63,32,31,10,0
  90. 790 DATA39,28,25,14,53,27,15,63,24,55,14,63,32,31,10,0
  91. 800 DATA39,28,25,24,43,27,25,63,24,45,24,63,32,21,10,0
  92. 810 DATA39,28,25,24,43,27,25,63,24,55,14,63,32,21,10,0
  93. 820 DATA39,28,25,14,53,27,25,53,24,55,14,73,12,41,10,0
  94. 830 DATA39,28,15,14,63,27,25,53,14,65,14,83,22,21,10,0
  95. 840 DATA39,28,15,73,27,25,43,24,65,14,83,22,21,10,0
  96. 850 DATA39,28,15,83,26,25,23,24,65,14,83,32,21,10,0
  97. 860 DATA39,28,15,83,26,24,23,24,75,14,83,22,21,10,0
  98. 870 DATA39,28,15,83,14,26,14,23,24,75,24,73,22,21,10,0
  99. 880 DATA39,28,15,83,14,26,14,13,24,85,24,73,22,21,10,0
  100. 890 DATA39,28,15,83,24,26,24,95,24,73,22,21,10,0
  101. 900 DATA39,28,15,83,34,36,95,43,42,23,12,21,10,0
  102. 910 DATA39,28,15,83,34,26,25,16,75,53,62,21,10,0
  103. 920 DATA39,28,15,83,34,26,15,26,75,63,52,21,10,0
  104. 930 DATA39,28,15,73,44,56,75,63,52,21,10,0
  105. 940 DATA39,28,15,73,44,13,46,25,26,25,83,42,21,10,0
  106. 950 DATA39,28,15,73,44,13,36,25,36,25,103,22,21,10,0
  107. 960 DATA39,28,15,73,34,23,86,15,123,12,21,10,0
  108. 970 DATA39,28,15,83,24,23,17,76,15,83,12,33,12,21,10,0
  109. 980 DATA39,28,15,83,24,33,17,36,17,16,15,93,32,12,31,10,0
  110. 990 DATA39,28,15,93,14,33,17,26,27,16,113,42,21,10,0
  111. 1000 DATA39,28,15,133,27,16,27,15,123,32,31,10,0
  112. 1010 DATA39,28,15,133,27,16,27,15,133,32,31,10,0
  113. 1020 DATA39,28,15,143,17,16,27,15,143,32,31,10,0
  114. 1030 DATA39,28,15,143,47,15,153,32,31,10,0
  115. 1040 DATA39,28,15,143,27,16,17,14,163,32,31,10,0
  116. 1050 DATA39,28,15,153,17,26,14,173,32,31,10,0
  117. 1060 DATA39,28,15,153,17,26,14,183,32,31,10,0
  118. 1070 DATA39,28,15,163,17,25,183,42,31,10,0
  119. 1080 DATA39,28,15,163,17,24,193,42,41,10,0
  120. 1090 DATA39,28,15,173,17,24,193,42,41,10,0
  121. 1100 DATA39,28,15,173,17,34,193,42,51,10,0
  122. 1110 DATA49,28,15,173,27,24,193,42,51,10,0
  123. 1120 DATA49,28,15,173,27,24,193,52,61,10,0
  124. 1130 DATA49,28,15,183,27,24,193,52,61,10,0
  125. 1140 DATA49,28,15,183,27,34,193,62,61,10,0
  126. 1150 DATA49,28,15,193,27,34,193,62,61,10,0
  127. 1160 DATA49,28,15,203,27,34,193,62,71,10,0
  128. 1170 DATA49,28,15,203,27,44,203,62,61,10,0
  129. 1180 DATA49,28,15,213,27,54,193,62,71,10,0
  130. 1190 DATA49,28,15,213,27,54,203,72,61,10,0
  131. 1200 DATA49,28,15,223,27,54,213,62,61,10,0
  132. 1210 DATA49,28,15,223,27,64,213,72,61,10,0
  133. 1220 DATA49,28,15,223,38,64,213,72,61,10,0
  134. 1230 DATA49,28,15,223,48,74,203,72,61,10,0
  135. 1240 DATA49,28,15,233,38,84,203,72,61,10,0
  136. 1250 DATA49,28,15,233,48,84,203,82,51,10,0
  137. 1260 DATA49,28,15,233,17,48,23,54,203,92,51,10,0
  138. 1270 DATA49,28,15,233,17,58,283,82,51,10,0
  139. 1280 DATA59,28,15,213,37,58,273,92,41,10,0
  140. 1290 DATA59,28,25,193,16,47,58,273,92,41,10,0
  141. 1300 DATA59,28,15,203,57,78,263,92,31,10,0
  142. 1310 DATA59,28,15,203,16,27,108,263,92,21,10,0
  143. 1320 DATA59,28,15,193,57,118,253,92,11,10,0
  144. 1330 DATA59,28,33,84,93,16,43,16,43,47,48,233,102,10,0
  145. 1340 DATA59,28,13,104,233,56,233,42,11,42,10,0
  146. 1350 DATA59,28,44,45,24,133,114,43,46,203,42,31,22,10,0
  147. 1360 DATA59,18,24,75,24,253,24,43,35,193,42,21,22,10,0
  148. 1370 DATA59,18,75,24,363,35,163,42,31,12,10,0
  149. 1380 DATA59,18,55,34,393,35,143,42,41,10,0
  150. 1390 DATA59,18,35,34,73,64,293,45,113,52,41,10,0
  151. 1400 DATA59,18,25,34,73,94,313,45,93,52,21,10,0
  152. 1410 DATA59,28,65,124,333,44,83,52,21,10,0
  153. 1420 DATA59,28,75,114,293,94,73,52,21,10,0
  154. 1430 DATA59,28,65,144,273,94,63,52,21,10,0
  155. 1440 DATA59,28,55,34,75,74,263,84,53,62,21,10,0
  156. 1450 DATA59,28,185,54,263,54,63,72,11,10,0
  157. 1460 DATA59,28,66,27,73,22,26,25,34,363,82,10,0
  158. 1470 DATA49,46,23,24,43,47,33,22,13,26,34,353,82,10,0
  159. 1480 DATA29,17,23,107,28,53,32,43,46,323,82,10,0
  160. 1490 DATA19,17,63,24,73,15,38,113,36,123,94,93,72,10,0
  161. 1500 DATA29,137,63,32,113,196,44,73,62,10,0
  162. 1510 DATA49,18,45,73,37,13,32,173,94,57,36,44,43,42,10,0
  163. 1520 DATA49,18,35,373,94,38,56,33,32,10,0
  164. 1530 DATA49,38,43,26,383,64,38,26,33,10,0
  165. 1540 DATA49,28,26,63,37,393,54,28,13,10,0
  166. 1550 DATA49,28,16,15,36,63,26,403,34,22,10,0
  167. 1560 DATA49,28,26,25,34,26,463,42,21,10,0
  168. 1570 DATA49,28,26,35,64,146,313,32,41,10,0
  169. 1580 DATA49,28,26,45,44,193,36,263,13,51,10,0
  170. 1590 DATA49,28,36,35,44,253,26,223,12,51,10,0
  171. 1600 DATA49,28,36,35,44,243,44,26,193,32,31,10,0
  172. 1610 DATA49,28,36,35,34,73,34,173,64,27,203,12,11,10,0
  173. 1620 DATA49,28,36,35,44,33,74,203,54,27,143,44,12,11,10,0
  174. 1630 DATA49,28,36,35,134,243,34,28,133,44,12,11,10,0
  175. 1640 DATA49,28,36,35,44,55,44,263,34,28,123,34,12,11,10,0
  176. 1650 DATA49,28,36,35,34,65,44,173,52,63,34,28,123,24,12,11,10,0
  177. 1660 DATA49,28,36,35,23,14,55,44,183,82,53,24,16,28,123,12,11,10,0
  178. 1670 DATA49,28,36,25,23,14,45,24,213,102,53,26,38,14,93,12,21,10,0
  179. 1680 DATA49,28,36,25,13,14,45,14,253,102,43,26,38,24,73,12,21,10,0
  180. 1690 DATA49,28,26,25,23,14,35,14,283,92,43,16,28,34,73,22,11,10,0
  181. 1700 DATA49,28,26,25,13,24,25,14,323,72,33,16,28,14,93,22,11,10,0
  182. 1710 DATA49,28,26,15,23,14,25,14,63,44,243,72,23,16,28,14,93,22,21,10,0
  183. 1720 DATA39,28,26,25,24,25,14,63,44,273,62,23,28,14,103,12,21,10,0
  184. 1730 DATA39,28,26,25,14,25,14,53,44,313,52,13,27,14,103,22,11,10,0
  185. 1740 DATA39,28,16,25,24,15,14,53,44,333,52,27,14,103,22,11,10,0
  186. 1750 DATA39,28,16,15,54,33,54,343,52,27,14,103,22,11,10,0
  187. 1760 DATA39,28,16,15,44,33,44,343,72,27,14,113,12,21,10,0
  188. 1770 DATA39,28,16,44,43,34,73,94,113,34,23,103,27,14,113,12,21,10,0
  189. 1780 DATA39,28,16,44,33,24,63,164,43,25,34,23,122,17,14,113,12,21,10,0
  190. 1790 DATA39,28,15,44,23,24,183,44,43,25,44,33,62,31,22,27,14,103,22,11,10,0
  191. 1800 DATA39,28,44,23,24,173,54,43,25,54,43,42,61,12,16,14,103,22,21,10,0
  192. 1810 DATA39,28,74,163,54,53,25,64,73,21,49,21,12,16,14,93,22,21,10,0
  193. 1820 DATA39,28,54,273,16,25,74,53,31,59,11,12,16,14,93,22,21,10,0
  194. 1830 DATA39,28,54,33,104,143,16,25,84,43,16,34,21,39,11,16,14,103,22,21,10,0
  195. 1840 DATA39,28,54,25,84,163,16,35,84,33,46,34,11,29,11,16,14,103,22,21,10,0
  196. 1850 DATA39,28,34,25,74,193,16,25,84,43,36,17,13,25,21,19,11,16,14,103,22
  197. 1851 DATA21,10,0
  198. 1860 DATA39,28,15,26,15,64,213,16,25,74,53,36,28,25,12,11,19,11,16,14,103
  199. 1861 DATA22,21,10,0
  200. 1870 DATA39,28,36,15,34,243,16,25,74,63,66,22,21,17,24,93,22,21,10,0
  201. 1880 DATA39,18,27,15,34,263,16,25,64,83,36,42,21,27,14,93,22,21,10,0
  202. 1890 DATA29,28,26,24,23,55,213,16,25,54,113,62,21,27,14,83,22,21,10,0
  203. 1900 DATA29,28,16,24,23,75,213,16,25,44,103,82,21,17,14,83,32,21,10,0
  204. 1910 DATA19,28,16,14,43,85,213,16,15,44,103,102,11,17,83,32,21,10,0
  205. 1920 DATA19,28,16,14,33,35,18,26,35,213,16,15,44,103,122,93,22,21,10,0
  206. 1930 DATA19,28,16,14,33,35,18,26,35,223,16,44,103,122,93,22,21,10,0
  207. 1940 DATA19,28,16,14,43,35,26,25,243,15,34,113,102,103,22,21,10,0
  208. 1950 DATA19,28,16,14,53,55,263,15,34,123,62,123,22,21,10,0
  209. 1960 DATA29,18,16,14,373,15,34,293,22,21,10,0
  210. 1970 DATA39,18,16,14,373,34,293,22,21,10,0
  211. 1980 DATA39,15,18,16,14,643,43,22,21,10,0
  212. 1990 DATA39,35,17,16,14,643,23,22,11,10,0
  213. 2000 DATA33,45,17,16,14,643,13,22,11,10,0
  214. 2010 DATA55,17,35,17,25,153,74,413,12,11,10,0
  215. 2020 DATA53,15,17,35,17,23,15,103,44,45,84,53,54,253,12,10,0
  216. 2030 DATA15,53,15,17,33,17,33,19,83,24,75,34,15,14,13,44,83,54,193,10,0
  217. 2040 DATA13,15,43,25,27,33,17,93,24,65,17,18,34,15,14,23,54,15,103,64,113,10,0
  218. 2050 DATA23,15,43,15,57,93,24,35,27,28,65,14,33,64,25,213,10,0
  219. 2060 DATA33,15,13,16,13,25,37,25,17,53,34,35,17,28,25,54,25,33,64,25,123,10,0
  220. 2070 DATA33,15,13,26,25,27,25,17,25,27,34,35,17,38,25,84,33,74,15,73,10,0
  221. 2080 DATA43,15,13,26,15,57,15,17,25,27,25,27,38,105,24,23,74,16,33,10,0
  222. 2090 DATA43,15,23,36,27,15,17,15,27,15,17,15,17,15,17,38,15,62,45,24,33
  223. 2091 DATA64,16,13,0
  224. 2100 DATA26,23,15,33,36,17,25,17,15,47,15,38,12,25,32,14,52,25,24,23,54,16,12,0
  225. 2110 DATA36,23,15,33,26,17,25,17,15,17,15,27,38,55,64,32,14,26,23,44,26,12,0
  226. 2120 DATA26,13,26,53,27,25,17,25,27,38,95,54,32,36,34,26,12,0
  227. 2130 DATA13,36,63,27,25,17,25,17,38,25,96,34,15,42,18,26,24,26,12,0
  228. 2140 DATA37,26,33,47,25,17,25,28,34,107,16,24,25,32,14,28,24,26,12,0
  229. 2150 DATA37,26,23,57,25,17,15,28,24,25,36,14,16,54,37,25,42,14,28,15,16,12,0
  230. 2160 DATA37,16,33,18,47,15,27,18,54,25,26,14,16,74,35,42,14,28,15,16,12,0
  231. 2170 DATA27,25,23,28,67,18,64,13,26,12,14,37,14,15,24,53,32,14,28,15,16,12,0
  232. 2180 DATA17,35,13,17,18,57,38,64,26,62,13,15,24,53,32,14,18,14,15,14,12,0
  233. 2190 DATA35,13,17,18,47,48,84,16,22,143,22,14,18,14,15,14,12,0
  234. 2200 DATA35,27,18,17,68,34,65,26,12,53,34,63,12,44,17,15,14,12,0
  235. 2210 DATA25,37,88,24,15,87,22,13,44,35,53,17,44,17,15,24,12,0
  236. 2220 DATA25,37,88,34,17,24,58,13,12,24,67,24,25,17,54,17,15,34,0
  237. 2230 DATA57,88,54,47,43,37,24,58,17,14,17,44,15,17,15,34,12,0
  238. 2240 DATA17,14,37,15,78,14,47,53,14,13,17,23,87,14,17,54,15,17,15,34,12,0
  239. 2250 DATA17,24,37,15,68,37,53,34,33,27,43,17,14,17,24,17,44,15,17,15,34,12,0
  240. 2260 DATA17,34,37,15,58,17,16,53,44,53,47,14,17,24,27,14,17,14,25,17,15,34
  241. 2261 DATA12,0
  242. 2270 DATA17,54,27,15,48,17,16,53,44,53,16,27,14,17,34,17,24,17,24,45,24,22,0
  243. 2280 DATA17,74,27,35,37,43,34,43,16,27,14,17,14,17,14,17,24,27,14,45,34,22,0
  244. 2290 DATA27,94,37,36,73,16,37,14,17,14,17,14,27,24,27,14,45,44,22,0
  245. 2300 DATA37,44,17,64,37,66,27,24,17,14,17,24,27,24,27,14,25,17,15,44,22,0
  246. 2310 DATA26,37,44,17,94,18,37,24,17,14,27,14,27,34,17,24,15,27,15,54,22,0
  247. 2320 DATA27,24,27,54,17,24,27,34,38,17,24,17,34,17,44,17,24,25,14,17,54,22,0
  248. 2330 DATA17,15,17,34,27,54,17,34,27,28,24,17,34,17,54,17,34,37,14,17,34,22,0
  249. 2340 DATA17,25,17,44,37,44,37,14,18,17,24,37,44,17,34,27,24,28,34,32,0
  250. 2350 DATA17,35,17,34,27,24,27,44,38,37,16,54,17,24,17,24,27,54,32,0
  251. 2360 DATA17,45,17,25,34,37,24,37,28,56,64,37,44,27,14,32,0
  252. 2370 DATA17,45,24,17,35,74,38,56,94,36,34,22,0
  253. 2380 DATA17,35,44,17,14,85,38,56,14,76,54,32,0
  254. 2390 DATA17,35,54,17,54,35,38,27,26,134,32,0
  255. 2400 DATA17,35,74,36,34,48,57,114,32,0
  256. 2410 DATA17,45,74,27,88,47,14,74,14,32,0
  257. 2420 DATA17,55,74,98,27,14,27,74,22,0
  258. 2430 DATA17,55,94,27,38,17,14,27,54,37,32,0
  259. 2440 DATA17,55,124,28,13,27,24,37,24,32,0
  260. 2450 DATA17,55,134,17,43,27,24,32,0
  261. 2460 DATA17,55,114,43,27,33,22,0
  262. 2470 DATA17,25,14,25,84,63,0
  263. 2480 DATA17,25,44,123,0
  264. 2490 DATA19,16,35,24,103,0
  265. 2500 DATA29,16,35,24,73,0
  266. 2510 DATA49,35,34,33,0
  267. 2520 DATA69,25,34,0
  268. 2530 DATA999
  269.